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lACAO DE 
MEIDDIAS NO MDCIR© 



CONVERSAO DE PARTITURAS 

EM PROGRAMAS 

ACIDENTES 



RITMO 



EXECUCAO DE MELODIAS 



Seu micro 6 capaz de executar. 
sozinho, melodias inteiras. 
Aprenda a converter partrturas 
em linhas de programas BASIC e ouca, 
entao, suas cancoes prediletas. 



A miisica compoe-se de dois elemen- 
tos b£skos: som e ritmo. Nosso primei- 
ro artigo sobre miisica em micros (veja 
'pagina 721) limitou-se a producao de 
notas musicais. O computador emitia 
uma nota conforme a tecla pressionada 
e o ritmo ficava a cargo do usuario. 
Mostraremos agora como informar ao 



computador o ritmo desejado. AJ6m dis- 
so, daremos as nocoes de noiacao mu- 
sical necessarias a traducao de qualquer 
partitura, o que lhe permit ira executar 
no micro sua melodia predileta. 



NOTACAO MUSICAL 



Em geral, as partituras musicais sao 
escritas em um ou dois grupos de cinco 
linhas horizontals, paralelas e eqiiidis- 
tantes, denominados pauta. Sobre uma 



ou entre duas linhas colocam-se os sini- 
bolos que represenlam as notas. A po- 
sicao destas na pauta, no sentido verti- 
cal, determlna a tonalidade; no sentido 
horizontal, a ordem de execugto. O for- 
mato dos simbolos, por sua vez, deter- 
mina a duracao da nota. 

Notas alinhadas verticalmente devem 
ser tocadas ao mesmo tempo, em acor- 
dec; estes, porem, nao foram inctuidos 
em nossos programas, que so tocam 
uma nota de cada vez. 

Linhas verticais, as barras dividem 
a miisica em grupos de notas. A dura- 
cao de cada um desses grupos deve ser 
a mesma, embora cada um deles possa 
ter um niimero diferente de notas. 




WGRA 




TONALIDADE 



O programa que apresentamos no ar- 
tigo anterior transformou seu computa- 
dor em uma especie de instrumento mu- 
sical. Como voce ja deve ter observado, 
ele funciona muito bem. Contudo, o nu- 
mero de melodias que pode executar e 
reduzido, em razao do pequeno mime- 
ro de notas disponiveis. Atem disso, o 
tisuario, que, muitas vezes, jamais to- 
cou qualquer tipo de instrumento, e 
obrigado a executar cada miisica. 

Pode-se facilmente converter uma 
partitura nos niimeros que o computa- 
dor precisa para t oca-la, mesmo sem ter 
grandes informacoes sobre musica. Na 
pagina 743, fornecemos uma tabela de 
conversao justamente com esta finalida- 
de. Antes, porem, devemos ampliar um 
pouco nossos conhecimentos a respeito 
de notagao musicaJ. 



LER EM VEZ DE OUVIR 



A figura I exibe um trecho de parti- 
tura. Nela estao representadas todas as 
notas disponiveis no teclado, em uma s£- 
rie crescente — £ a chamada esca/a cro- 
mdtica. 



Os simbolos no inicio das pautas sao 
denominadas claves: o da pauta de ci- 
ma e a clave de so/, mass aguda; o da 
pauta de baixo, a clave defd, mais gra- 
ve. As claves determinant a (onalidade 
da pauta. Sem uma clave, as mesmas 
notas poderiam ser tocadas numa tona- 
lidade mais alta ou mais baixa. 

Os simbolos das notas ficam sempre 
entre duas ou exatamente sobre uma das 
linhas da pauta. Para escrever as notas 
que ficam acima ou abaixo destas, 
usam-se linhas suplementares. Na figu- 
ra 1 , por exemplo, a oitava e as tres ul- 
timas notas estao desenhadas sobre li- 
nhas suplementares. 

Para coiocar as notas da partitura em 
um programa BASIC e necessario cal- 
cular os valores da duracao bem como 
de lonalidade correspondentes a cada 
uma delas. Qualquer pessoa pode se 
confundir nessa demorada tarefa. Mas 
nao desanime: ha uma maneira mais fa- 
cil de realiza-la. 

Voltemos a figura 1 : observe que ca- 
da tecla foi marcada com um valor de 
1 a 37. Esses numeros serao usados pa- 
ra calcular aqueles que, efetivamente, 
farao parte do programa. 

Poden'amos consultar a mesma figu- 
ra sempre que quisessemos "traduzir" 
uma melodia, mas o process© de com- 



paracao entre a partitura e o desenho 
lambem seria bastante cansativo. Para 
simplificar o trabalho, o mais pratico se- 
ria o uso de um disposittvo ou "gabari- 
to" que, colocado sobre qualquer noia 
de partitura, mostrasse o valor corres- 
pondente a sua tonalidade. 



UM GABAR1T0 MUSICAL 



Nao ha nenhum segredo na constru- 
cao de um dispositivo desse tipo: preci- 
samos sirnplesmente desenhar uma es- 
cala musicaJ numa folha de papel, o que 
leva alguns poucos minutos. Provavel- 
mente, melodias diferentes exigirao ga- 
baritos diferentes, ja que o tamanho das 
pautas pode variar. 

A primeira coisa a fazer e por o pa- 
pel sobre a partitura e copiar as linhas 
das pautas, indicando todas as possiveis 
posicoes verticals de uma nota. Em se- 
guida, basta assinalar o valor correspon- 
dente a cada marca. Para identificar os 
valores que deveremos usar nos progra- 
mas, colocamos o gabarito sobre a par- 
titura e lemos nota por nota com sua 
ajuda. 

Os valores correspondentes a cada to- 
nalidade estao representados na tabeia 
de conversao. O Spectrum, o Apple e o 
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TABELA DE CON VERSAO 


Escala 
principal 


Spectrum 


Apple 


TK-2000 


TRS-Color 


MSX 


1 


-12 


192 


192 


C 


c 


2 


-11 


182 


182 


C + 


c + 


3 


-10 


172 


172 


D 


D 


4 


-9 


162 


162 


D + 


D + 


5 


-8 


154 


154 


E 


E 


6 


-7 


146 


146 


F 


F 


7 


-6 


137 


137 


F + 


F + 


8 


-5 


128 


128 


G 


G 


9 


-4 


121 


121 


G + 


G + 


10 


-3 


114 


114 


A 


A 


11 


-2 


108 


108 


A + 


A + 


12 


-1 


102 


102 


B 


B 


13 





96 


96 


C 


C 


14 


1 


90 


90 


C + 


C + 


15 


2 


85 


85 


D 


D 


16 


3 


80 


80 


D + 


D + 


17 


4 


76 


76 


E 


E 


18 


5 


72 


72 


F 


F 


19 


6 


67 


67 


F + 


F + 


20 


7 


64 


64 


G 


G 


21 


8 


60 


60 


G + 


G + 


22 


9 


56 


56 


A 


A 


23 


10 


53 


53 


A + 


A + 


24 


11 


50 


50 


B 


B 


25 


12 


47 


47 


C 


C 


26 


13 


45 


45 


C + 


C + 


27 


14 


42 


42 


D 


D 


28 


15 


40 


40 


D + 


D + 


29 


16 


37 


37 


E 


E 


30 


17 


35 


35 


F 


F 


31 


18 


33 


33 


F + 


F + 


32 


19 


31 


31 


G 


G 


33 


20 


29 


29 


G + 


G + 


34 


21 


28 


28 


A 


A 


35 


22 


26 


26 


A + 


A + 


36 


23 


25 


25 


B 


B 


37 


24 


23 


23 


C 


C 



TK-2000 usam numeros, enquanto o 
MSX e o TRS-Color usam letras. Para 
saber o que escrever junto a cada mar- 
ca do gabarito, compare os numeros da 
figura 1 com os da tabela e procure o 
valor correspondente na coluna dedica- 
da ao seu micro. 



BEM01S E SUSTENIDOS 



Nem todas as melodias sao escritas na 
escala "C maior" ("d6 maior", como 
vimos no artigo anterior); portanto, as 
vezes precisaremos traduzir 0s bemdis e 
sustenidos das partituras. 

Se observarmos os acidentes fixos — 
explicados mais adiante — , distinguire- 
mos os bemois ou sustenidos da cancao. 



Poderemos, assim, substituir o valor da 
nota natural no gabarito pelo valor do 
bemol ou do sustemdo. 

Bem6is e sustenidos sao as teclas pre- 
tas, e o valor de suas tonaiidades esta 
na tabela, O menor valor de um C sus- 
tenido e 2 {usando os numeros da esca- 
la principal da tabela, voce descobrira 
o valor correspondente em sua maqui- 
na). D bemol tern o mesmo valor, que 
esta entre 1 e 3 (valores de C e D, res- 
pectivamente). 

Simbolos para bem6is e sustenidos 
nao for am introduzidos na figura I pa- 
ra nao torna-Ia confusa. Quando se quer 
representar o sustenido de uma nota, ela 
aparece precedida pelo simbolo corres- 
pondente (parecido com o caracter # 
"cardinal" de seu computador). Da 




Como o computador produz sons? 

Para que um dispositivo digital, co- 
mo o computador, possa gerar um fe- 
nomeno analdgico (continuamente va- 
riavel em intensidade), como o som, e 
necessario liga-fo a um aparelho espe- 
cial, ehamado conversor digital-anaid- 
gico (DAI. Este tern a funcao de con- 
verter uma lista de numeros armazena- 
da ou gerada no computador em uma 
onda continuamente variavel. 

No nosso caso, cada numero da lis- 
ta represents a amplitude ou intensida- 
de da onda em urn determinado mo- 
mento. A lista de numeros, com valo- 
res de amplitude tornados a intervalos 
regulares (geralmente milissegundos), 
constitui, assim, uma amostragem da 
onda a ser produzida. O inverse do in- 
terval de amostragem, denominado 
frequencia de amostragem, depende- 
rd da freqiiencia maxima que o som de- 
ve atingir. 

O conversor analbgieo-digitai (AD I 
funciona de modo inverso ao conver- 
sor DA, transformando uma onda ana- 
Idgiea em uma lista de numeros. Esse 
dispositivo e utilizado, por exemplo, em 
sistemas de reconhecimento de voz pa- 
ra microcomputadores ou na conversao 
de entradas provenientes de joysticks 
analogicos, 

conversor DA s6 pode ser empre- 
gado nos micros que dispoem de gera- 
dores internos de sons, como o TRS- 
Color, o MSX e o Spectrum. Colocan 
do-se varios conversores DA lado a la- 
do, a placa geradora de som desses mi- 
cros torna-se capaz de emitir varias no- 
tas ao mesmo tempo. 
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mesma maneira, simbolos de bemol (pa- 
recidos com um b minusculo) precedem 
as notas correspondentes. 

A figura 2 mostra as primeiras notas 
"C maior", incluindo bem6is e suste- 
nidos, na clave de sol. Observe que C 
sustenido e D bemol sao a mesma nota, 
mas ocuparn posicoes verticals diferen- 
tes na pauta. Notas isoladas podem, as- 
sim, representar bem6is e susterudos, 
desde que sejam precedidas pelos sim- 
bolos correspondentes — denominados 
acidentes. O efeito de um acidente du- 
ra, para a nota que o segue, ale a proxi- 
ma barra, a menos que seja cancelado 
antes do fim do compasso. £ um tercel- 
ro simbolo, chamado bequadro, que 
cancela o acidente e restaura a tonalida- 
de natural da nota. A figura 3 mostra 
um trecho de partitura onde aparece um 
G sustenido. O G seguinte tern sua to- 
nalidade natural preservada pelo bequa- 
dro que o precede. 



ACIDENTES FIXOS 



Quando uma cancao e executada em 
uma escala que inclui um bemol ou um 
sustenido, essa nota sera usada o tem- 
po todo, no lugar do valor natural cor- 
respondente. Paraevitar a repeticao do 
simbolo, ele e colocado ap6s a clave, no 
inicio da pauta. Nesse local, o simbolo 
e chamado de acidente fixo e, por meio 
dele, pode-se identificar a escala em que 
e tocada a cancao. 

A ausencia de um acidente fixo indi- 
caque a escala e "C maior", e, aocon- 
trario, qualquer acidente fixo indica que 
se trata de outra escala. Se, por exem- 
plo, uma pauta apresenta um sustenido 
como acidente Fixo na linha do F, todos 
os F, em todas as oitavas, serao sus- 
tenidos. 

No artigo anterior, mostramos que 
um F sustenido 6 necessario para preser- 
ve o arranjo de intervalos na escala "B 
maior". Um sustenido na posicao do F 
como acidente fixo indica ao miisico que 
a melodia foi escrita em "B maior". 
Nao se esqueca, portanto, de modificar 



no gabarito os valores das tonalidades 
correspondentes, sempre que a partitu- 
ra tiver acidentes fixos. 

A figura 4 mostra um trecho de par- 
titura em **F maior". Nele vemos um 
acidente fixo bemol. Os valores das to- 
nalidades estao indicados: note que o da 
quarta nota, um B bemol, £ 23. Aqui o 
gabarito revela toda a sua utilidade, Se 
a miisica que esta sendo transcrita tern 
um B bemol como acidente fixo, colo- 
carnos o valor correspondente ao bemol 
na marca do B. Assim, a traducao dos 
acidentes se torna tao facil quanto a das 
notas naturais. 

Mas tenha cuidado; muitas vezes al- 
guns acidentes isolados — e naturais iso- 
lados — tern prioridade sobre os aciden- 
tes fixos. 



Depois de calcular a tonalidade das 
notas, devemos cuidar da duracao de ca- 
da uma delas e da traducao das pausas, 
que tern seus prdprios simbolos. A figu- 
ra 5 mostra os simbolos das notas e das 
pausas com duracao equivalente e o va- 
lor relativo da duracao. 

Duracoes relativas sao utilizadas pa- 
ra que um andamento — velocidade de 
execucao — defina, posteriormente, a 
verdadeira duracao. Podemos, assim, 
experimentar diversos andamentos, ate 
que um deles nos soe melhor. O progra- 
ms do final do artigo permitira esse ti- 
po de ajuste. 

As pausas mais longas sao represen- 
tadas por meio de pequenos retangulos 
pretos, desenhados acima ou abaixo da 
linha media da pauta. Quando um pon- 
to sucede uma nota ou uma pausa, sua 
duracao e multiplicada por um e meio. 
Uma nota pontuada duas vezes tern uma 
duracao uma vez e tres quartos maior 
que a nota sem pontos. 

Alem do acidente fixo, junto a clave 
aparecem dois aigarismos, dispostos co- 
mo fracao num^rica. O de baixo indica 
a especie de notas em que o compasso 
esta dividido; o de cima, o numero des- 
sas notas no compasso. Na figura 6, por 
exemplo, vemos a fracao 6/8 depois da 
clave, o que significa que ha seis col- 
cheias por compasso. 

Para nossos fins essas nocQes de no- 
tacao musical sao suficientes: vamos ape- 
nas transcrever a partitura para criar um 
programs. 



TRADUCAO DE UMA MELODIA 



Vamos agora traduzir uma pequena 
partitura em numeros (ou letras, confor- 




seleqAo de partituras 

Se voce sabe ler partituras. nao te- 
ra a menor dificuldade em encontrar as 
musicas de sua preferencia para "to- 
car" no computador, usando o progra- 
ms deste artigo. Mas, se voce 1 dispoe 
apenas de noqoes elementares de no 
tagao musical, precisara contornar 
suas deficiencies selecionando partitu- 
ras simplificadas. Uma excelente fon- 
te sao os albuns de exerclcios musicais 
para inieiantes de instrumentos menos 
complexes, como a flaute doce. Netes, 
melodias nao harmonizadas (isto e, 
sem acordes) sao apresentadas na for- 
ma de partituras tao simples que voce 
nao tera dificuldade nenhuma em 
acompanhar. 

A selecao de musicas sera um pou- 
co mais dificil para quern nio l§ abso- 
lutamente nada de uma partitura. Mas, 
ainda assim, festa o popular recurso de 
"tocar por numeros". Alguns fabrican- 
tes de instrumentos musicais para 
criangas publicam partituras em que as 
notas sap acompanhadas por numeros, 
Estes indicam a tecla a ser pressiona- 
da. Estabelecendo a correspondencia 
entre os numeros e as teclas do com- 
putador, voce podera executar musicas 
completas sem saber sequer o que e 
um "d6". 



me sua mdquina) que o computador 
possa utilizar para determinar tonalida- 
des e duracoes de notas. 

A figura 6 mostra a partitura de uma 
cangao infantil inglesa. Three Blind Mi- 
ce (Tres Ratinhos Cegos) acompanhada 
dos numeros que representam a tonali- 
dade na escala principal, previamente 
definida. Para identificar os numeros 
correspondentes em seu computador, 
use a tabela de conversao. Os valores pa- 
ra a duracao relativa tamMm estao in- 
dicados. 

Observando a partitura em questao, 
voc§ veri que, sempre que tres colcheias 
(veja figura 5) aparecem juntas, elas sao 
ligadas por um traco horizontal. Nio es- 
tranhe: a linica finalidade dessa forma 
de notacao — nao obrigatoria — 6 fa- 
cilitar a leitura. As notas permanecem 
exatamente as mesmas, nao havendo 
modificacdes nem na altura nem na 
duracao. 

Ja no oitavo compasso, ha duas no- 
tas Itgadas, mas por uma linha curva, e 
nao reta. Nesse caso ha mudanca: a li- 
nha, chamada ligadura, indica que a se- 
gunda nota nao deve soar separadamen- 
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te, ou seja, que o som da primeira se 
prolongara pelo tempo correspondente 
a duracao de ambas as notas. Poderia- 
mos ter, tambem, ligaduras com varias 
notas. Para transcreve-las em dados 
computaveis, bastaria somar as dura- 
eoes correspondents, o que nos daria 
uma nota mais tonga. 



LINHAS DATA 



Os numeros das tonalidades e dura- 
eoes devem ser colocados em iinhas DA- 
TA, para que o programa possa obte- 
[os com READ no decorrer da execu- 
cao. Os numeros correspondentes a can- 
cao da figura 6 foram incorporados ao 
programa dessa maneira. Cada linha 
contem dois compassos (exceto no TRS- 
Color e no MSX), o que torna mais fa- 
cil a compreensao das Iinhas DATA. 

A duracao total de cada compasso 
deve ser a mesma — doze unidades, no 
nosso caso. Assim, se voce transcrever 
uma musica e o ritmo parecer incorre- 
to, verifique se cada compasso tern a 
mesma duracao, corrigindo os erros en- 
contrados. Use as funcoes de edicao de 
seu computador para duplicar compas- 



sos iguais ou semelhantes, economizan- 
do tempo de digitacao. 



ANDAMENTO 



Os valores da duracao de cada nota 
sao relatives, ja que podemos variar o 
andamento (velocidade) que se imprime 
a execucao de um trecho da melodia. O 
programa solicka um valor para o an- 
damento, logo que e executado. Coma 
valores menores correspondem a maio- 
res velocidades de execucao, podemos 
considerar o valor que fornecemos co- 
mo o inverse do andamento. 

Ha um detalhe importance sobre o 
funcionamento do programa que se apli- 
ca a todos os micros. Suponhamos que 
a melodia contenha um compasso com 
uma unica nota bem longa, seguido por 
outro compasso com varias notas cur- 
ias. No segundo caso, as Iinhas que leem 
e testam os dados sao executadas mais 
vezes que no primeiro, Devido ao tem- 
po de operacao extra, a velocidade de 
execucao do segundo compasso sera um 
pouco menor. Deve-se imprimir, por- 
tanto, a maior velocidade possivel a exe- 
cucao dessas Iinhas BASIC. Por isso, 



nao ha no programa Iinhas que testem 
o fim dos dados: o programa termina 
simplesmente com uma mensagem de er- 
ro indicando que nao hi mais dados. 

Se, porem, ao traduzir suas musicas 
prediletas, voce quiser um final mais ele- 
gante, coloque um laco FOR.. .NEXT 
que leia exatamente a quantidade de nu- 
meros que as Iinhas DATA contem. 

Seguem-se os programas que execu- 
tant a parthura da figura 6. 



10 INPUT "TEMPO (1-50) ",t- 

LET t=t/100 

20 IF tXO.00] OB t>0.5 THEN 

UOTO ] 

.10 FOB n = TO 1 STEP Or HEAD 

a,b: SOUND a*t. ,b: NEXT n 
100 DATA 6.4.6,2,12.0,6.4.6,2. 
12,0 

1 1 DATA 6,7.4.5,2.5.12.4,6.7, 
4,5.2,5,10.4.2,7 
120 DATA 4.12.2,12.2.11.2.9.2. 
1] 

130 DATA 4,12,2,7.4,7,2,7 
1 4 DATA 2. 12,2,12. 2, 12,2,11,2 
.9.2. 11 

150 DATA 4,12,2,7,4,7,2.7 
1 60 DATA 7,12,2,12,2,12,2,11.2 
,V,2, 11 

1 70 DATA 4,12,2,7,4,7,2,5 
180 DATA 6,4.6,2,12,0 

Ao rodar o programa, devemos res- 
ponder, com um niimero entre I e 50, 
a solicitacao do computador de um va- 
lor para o andamento. Como ja foi ex- 
plicado, trata-se do inverso do anda- 
mento. O programa nada mais faz do 
que multiplicar cada duracao pelo va- 
lor do andamento — portanto, quanto 
maior o valor, menor a velocidade. 

Usamos o inverso do andamento pa- 
ra tornar o programa mais simples e ra- 
pido. Um comando IF. ..THEN verifi- 
ca se o andamento esta na faixa permi- 
tida. A linha 30 executa a melodia. Um 
laco FOR.. .NEXT obtem com READ 



5 

Simbolo da note 


Nom* <la nota 


Simbolo lIb pausa 


Durapao ralativa 


DuraqAo 
quando pontuada 


O 


Semibreve 


-m- 


16 


24 


J 


Minima 


— ■ 


8 


12 


J 


Semlnima 


\ 


4 


6 


} 


Colchala 


7 


2 


3 


} 


Samicolcheia 


1 


1 


1.5 
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i 



its j. j. 1 j 



Tonalfdadel? IS 13 

DurapSo 6 6 12 



17 15 
6 6 



2 

13 

12 



t 



20 
6 



ia is 

4 2 



17 
12 



feg 



r~rT 



s 



20 16 18 

6 4 2 



17 
10 



20 
2 



25 25 24 22 24 
4 2 2 2 2 



25 20 20 20 
4 2 4 2 



m 



? + t* 



£ 



* — * 



*=£ 



25 25 25 24 22 24 
2 2 2 2 2 2 



25 20 20 20 20 
4 2 2 2 2 



25 25 24 22 24 
4 2 2 2 2 



l -i r,, J ji 



^ 



252020 20 16 

2 2 2 4 2 



17 
6 



15 
6 



13 

12 



e o coloca logo ap6s "L". O "03" que 
se segue determina a oitava {eventual- 
mente, e cancelado pelo "04" de uma 
nota). Finalmente, a variavel A$ esta- 
beiece a altura da nota. 

Para executar a musica, usamos urn 
laco FOR... NEXT (linhas 40 a 70). Evi- 
tamos, assim, a emissao de uma men- 
sagem de erro que, alem de deselegan- 
te, causa problemas no MSX. Como es- 
se computador possui um microproees- 
sador especffico para a producao de 
sons, a musica continua tocando, mes- 
mo apds a execucao do programa. Ha- 
vendo uma mensagem de erro, o siste- 
ma operacional do MSX suspende ime- 
diatamente todas as atividades periferi- 
cas em andamento — tela grafiea, mo- 
tor do gravador e som. Assim, se dei- 
xassemos passar urn erro, a musica se- 
ria interrompida. 



TO 22: READ A: PO 
A : NEXT 

60, 0, 174, 13 J..), 2 36,4 
08,5,206, 1.12,3,240,6 



P 



dois valores para cada nota: um para a 
tonalidade e outro para a duracao. Um 
comando SOUND emite o som antes 
que outros dados sejam lidos. 

Ao executar suas prbprias cancoes, 
acerte os valores do laco FOR... NEXT 
para a leitura do niimero exato de no- 
tas. Por enquanto, o laco nunca termi- 
na, pois tern um STEP de valor 0. 



10 INPUT "ANDAMENTO (1-50)" ; TP 

20 IF TP<1 THEN JO 

30 PLAY "T"4STR$(INT (32+223/TP) 

) 

40 FOR 1-1 TO 48 

50 BEAD A$,D 

60 PLAY "L"+STR$(INT(l+63/D) }+" 

03"+A3 

70 NEXT I 

1000 DATA E,6.D,6,C,12 

1010 DATA E,6,D,6,C,12 

10 20 DATA G,6.F,4.F F 2,E,12 

1030 DATA G,6,F,4,F,2,E,10 



1040 DATA G,2,04C,4.04C,Z.B,2,A 

, 2,B, 2,04C,4,G,2,G,4,G,2 

1050 DATA 04C, 2 , 04C , 2 , 04C , 2 , B , 7 

, A , 2 , B , 2 , 04C ,4,G,2,G,2,G,2,G.2 

1060 DATA 04 C, 4 ,04C, 2,B,2,A.2,B 

, 2.04C, 2,G,2,G,2,G,4. F, 2 

1070 DATA E,6,D,6,C,12 

O programa do MSX comeca pedin- 
do que o usuario informe o andamento 
desejado. A linha 20 verifica se o valor 
escolhido e valido — se nao for, o pro- 
grama volta a linha 10. A linha 30 cui- 
da de estabelecer o andamento, selecio- 
nando um valor adequado para o argu- 
mento"T" do comando PLAY..O va- 
lor escolhido no inicio deve ser transfor- 
mado em cordao pela instrucao STR$, 
para que possa servir como argumento 
de PLAY. 

A linha 50 obtem os valores de tona- 
lidade e duracao das not as. A linha 60 
produz o som, tambem usando o co- 
mando PLAY, Para determinar a dura- 
cao de cada noca, STR$ transforma em 
cordao o valor obtido nas linhas DATA 



mw\ 


10 


HOME 


20 


FOR I - 


KE 300 + 1, 


30 


DATA I 


B, 192.136,2 


,202, 208. 24 


40 


INPUT " 


50 T = T / 


60 


READ A, 


70 


POKE 90 


1,A 


CALL 8 


80 


FOR 1 - 


90 


GOTO 60 


100 


DATA 


no 


DATA 


120 


DATA 


130 


DATA 


.64 


2 


140 


DATA 


50,2 


150 


DATA 


160 


DATA 


50.2.50,2 



5, 76.34,3 
ANDAMENTO 
3.3 
B 

0.1 + B * 
00 
1 TO 100 



96 
(1-50)' 



T: POKE 90 



NEXT 



76,6,85,6.96.12 
76.6.85.6,96,12 
64.6, 72,4.72.2,76,12 
64,6,72,4,72,2.76.10 

4 7,4,47 ,2,50.2,56.2, 

47,4, 64, 2.64 .4 ,64.2 
47,2.47.2,47,2.50.2, 




170 DATA 4 7,4,64,2,64,2,64.2, 

64,2 

J 80 DATA 47,4,47,2,50,2,56,2 

.50.2 

190 DATA 47,2,64,2,64,2,64.4, 

72,2 

20 DATA 76.6.85,6.96.12 

O programs do Apple usa a rotina 
em codigo explicada no artigo da pagi- 
na 706. As linhas 20 e 30 colocam essa 
rotina na memoria, depois que o HO- 
ME da linha 10 limpou a tela. 

A linha 40 solicita o valor desejado 
para o andamento da cancao e a linha 
50 corrige seu valor. O fator de corre- 
cao aqui escolhido e compativel com du- 
ra?oes relativas com valores ate 16 (se- 
mibreve). Como em nossa cancao nao 
existem notas com duracao tao longa, 
podemos alterar o valor para 2.5, se qui- 
sermos. Nesse caso, porem, a duracao 
maxima decada nota devera ser 12 (mi- 
nima pontuada). 

A linha 60 obtem os valores de tona- 
lidade e duracao e a linha 70 cabe exe- 
cutar a nota. Para chamarmos a rotina 
(CALL 800) que produz o som, o ende- 
reco 900 deve conter a duracao e o 901, 
a tonalidade. 

O problems de tempo, que mencio- 
namos ao tratar dos demais computa- 
dores, nao se aplica ao micro Apple. A 
linha 80 produz urn pequeno atraso, fa- 
zendo corn que a musica nao seja exe- 
cutada muito rapidamente. 

A linha 90 manda o programa de vol- 
ta a linha 60 para que o programa obte- 
nha o valor de uma nova nota. O pro- 
grama termina com uma mensagem de 
erro, informando o fim dos dados. 



Embora o programa anterior funcio- 
ne no TK-2000, seus usuarios devem fa- 
zer algumas modificacoes, Primeiro, co- 
mo a rotina de producao de sons nao e 
necessarta, as linhas 20 e 30 podem ser 
apagadas. Alem disso, devemos substi- 



tuir os comandos na linha 70 do progra- 
ma do Apple pelo comando SOUND. A 
linha 80 tambem precisa ser modifies - 
da, ja que o TK-2000 e mais lento que 
o Apple, Aqui estao as modificacoes: 



70 SOUND A, ]+B*T 

B0 FOB 1=1 TO 40: NEXT 



10 IN PUT "ANDAMENTO (1-50) " ; TP 

20 IF TP<1 THEN 10 

30 READ AS , D 

40 PLAY"T"+STRS (INT (1+255/ (TP*D 

)))+"03"+A9 

50 GOTO 30 

1000 DATA E,6,D,6.C,12 

1010 DATA E.6.D,6,C,12 

1020 DATA G.6,F,4.F,2,E,12 

1030 DATA G,6.F,4,F,2.E,12 

1040 DATA 04C,4.04C,2,B,2,A,2,B 

, 2 , 04C ,4.G,2,G,4,G,2 

1050 DATA O4C,2,04C,2,O4C,2,B,2 

,A l 2,B,2,04C.2,G,2,G,2,G,2.a I 2 

1060 DATA 04C.4.04C. 2.B.2.A.2.B 

. 2.04C, 2,G, 2,G, 2,G,4,F.2 

1070 DATA E,12,D,12,C,12 

O programs do TRS-Color eomeca 
pedindo o valor da velocidade de exe- 
cucao desejada — ou andamento — por 
meio de urn comando INPUT. 



A linha 20 verifies se o valor forne- 
cido esta dentro dos limites validos, re- 
tornando a linha 10 se o andamento for 
menor que 1. 

A linha 30 le dois valores para cada 
nota: um para a tonalidade — represen- 
tada por meio de uma letra — e outro 
para a duracao. Para simbolizar os sus- 
tenidos, usamos um sinal "cardinal" ou 
um "mais" antes da nota e, para os be- 
mois, um sinal "menos" no mesmo lu- 
gar, A linha 40 toca a nota, atraves de 
um comando PLAV. O T entre aspas 
faz com que o numero que vem a seguir, 
entre I e 255, determine o andamento 
da melodia. Esse numero e cakulado 
invertendo-se o valor inicialmente for- 
necido ao programa. Para ser utilizado 
como argumento de PLAY, o numero 
deve ser convertido em um cordao por 
intermedio do comando STR$. 

O cordao "03" seleciona a oitava 
apropriada; a parte final da iinha ( + AS) 
cuida da tonalidade da nota, 

Apos produzir o som de uma nota, 
o programa volta a linha 30, onde 
READ IS um novo par de dados nas li- 
nhas DATA. Isto se repete ate que 
conteiido das linhas DATA se esgote. O 
programa e interrompido com uma 
mensagem de erro, ao tentar prosseguir 
a leitura de dados — que ja acabaram. 
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UM VIDEOGAME 
EM ASSEMBLER 




■ 
i 



Comecamos aqui a programacao de urn 
videogame completo: A vafanche. Em cada 
nova secao voce encontrara uma 
surpresa... e aprendera urn pouquinho 
ma is sobre cddigo de maquma! 

Os principios mais importantes da 
linguagem de maquina podem ser ensi- 
nados por meio da programacao de jo- 
gos. E, sem diivida, aprender desse jei- 
to £ muito mais divertido. Desenvolve- 
mos, assim, urn videogame completo, 
espetialmente construido para demons- 
trar os recursos de programacao do 
Spectrum, do MSX e do TRS-Color. 
Nao havera programas para as linhas 
Apple. TK-2000, TRS-80 e ZX-81. 

Avalanche e nm virlpoeame nn pstiln 
de Keystone Hoppers, exigindo rapidez e 
agilidade tio jogador, que precisa cbi 
rer e saltar para escapar dos perigos que 
o ameacam. 

Serao criadas quairo telas, uma pa- 
ra cada nivel de dificuldade — o jogo 
vai se tomando cada vez mais diffcil. O 
personagem central de loda a acao 6 
Willie. Nosso heroi decide fazer urn ps- 
quenique em uma montanha a beira- 
mar. Depois de encontrar um bom lu- 
gar para estender sua toaJha, vai dar um 
passeio pclas redondezas. Ao voltar, 
descobre que alguns cabritos monteses 
espaJharam seu lanche por toda a encos- 
ta. Para recuperar o que trouxe, preci- 




sara ir ate" o topo da montanha — o que 
deve fazer o mats rapido possfvel, 
levando-se em conta que a mare esta su- 
bindo. Willie morrera afogado se nlo 
chegar la em cima a tempo. 

Na primeira etapa do jogo, nosso he- 
r6i i bombardeado por uma avalanche 
de pedras que rolam montanha abaixo. 
Para isso, utilizamos a primeira tela, que 
mostra as pedras descendo a encosta. 
Willie precisa saita-las, se quiser conti- 
nuar vivo — qualquer descuido pode ser 
fatal, A corrida e os saltos do persona- 
gem sao controlados pelas teclas N e M. 
Se uma pedra atingi-to, e morie certa. 
Felizmente, ele tern cinco vidas. 

Quando Willie ehega ao topo da 
montanha e recupera parte do que per- 
deu, e obrigado a voltar ao ru'vel do mar. 
O jogo recomeca, entao, na segunda te- 
la. Desta vez, ao tentar subir o monte, 
encontrara pelo caminho enormes bura- 
cos, verdadeiras armadilhas cavadas na 
encosta. Se cair num deles ficara enter 
rado... e morto. 

Chegando ao cume da segunda mon- 
tanha, nosso heroi sera colocado aos pes 
da terceira e precisara enfrentar uma no- 
va escalada. A encosta continua cheia 
de buracos, mas, agora, cada um deles 
e habitado por uma serpente venenosa, 
que tentara picar o personagem quan- 
do este saltar. ''Wc_ ^4, 

Na quarta tela, Willie tcra quejpos/* 5 * 



trar toda a sua habilidade, pois sera 
bombardeado pela avalanche enquanto 
salta sobre os buracos habitados pelas 
serpentes "assassinas". 

Nas quatro etapas do jogo a rapidez 




I 
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e fundamental, pois a mare esta sempre 
subindo. Os pontos do jogador sao con- 
tados conforme seu sucesso em escalar 
a montanha, havendo um bonus para 
quem conseguir passar as quatro telas 
sem perder nenhuma vida. 

AJem de ensinar os truques da pro- 
gramacao em c6digo de maquina, Ava- 
lanche e um jogo envolvente e cheio de 
emoccks. Publicaremos suas secoes em 
varias partes. O funcionamento de ca- 
da uma e seu papel na estrutura global 
do programa serao explicados detalha- 
damente na medida em que forem apre- 
sentadas. Sempre que possive!, indica- 
remos as altemativas de milizacao de de- 
terminadas rotinas. No final da serie, 
voce tera um videogame tao bom como 
os disponiveis em cartuchos. 



A ESTRUTURA DO PROGRAMA 



O cenario e os caracteres moveis sao 
todos desenhados com biocos graficos. 
Colocamos o cenario na tela por meio 
de lacos que obtem os caracteres corres- 
pondentes em bancos de biocos criados 
previamente na mem6ria. 

Os buracos e as cobras sao superpos- 
tos ao cenario original, de maneira que 
nao precisamos redesenha-lo para mon- 
tar as demais telas. 

A parte principal do programa con- 
siste em uma rotina de controle que de- 
termina o andamento e a prioridade dos 
eventos. Cada evento em si e executado 
por uma sub-rotina especifica. 

A animacao do personagem central 
e das serpentes "assassinas" e feita em 
saltos de meio caractere, procedimento 
viabilizado pela criacao de dois conjun- 
tos de caracteres. 

Com esse tipo de animacao, pode-se 
obter suavidade nos movimentos sem 
complicar demais o programa ou atrasa- 
lo — o que compromeleria o desenvol- 
vimento do jogo, ja que a velocidade* 
no caso, e muito importante. 



A primeira coisa que se programa em 
qualquer jogo e uma tela exibindo o ti- 
tulo. Embora a rotina de impressao es- 
teja em codigo de maquina, sera mats 
facil colocar as letras na membria usan- 
do um programa BASIC. 

Antes de execuiar o programa, pro- 
teja a regiao da memoria corresponden- 
te com CLEAR 57434. 

10 LET X=57435 
20 READ AS 



30 FOR N=l TO 38 

40 POKE X.CODE A$ (N) 

50 LET X=X + 1 

60 NEXT N 

70 DATA "AVALANCHECRTACAO-A.D 

OF, PROGRAMA : P . CLARK" 

O programa cria na memdria uma ta- 
bela com os c6digos ASCII das ietras 
que compoem a tela. Essa parte da me- 
mdria deve ser gravada juntamente com 
o resto do programa em cddigo; assim, 
na realidade, o programa BASIC nao 
sera necessario a execucao do jogo. 
Grave-o, contudo, para auxiliar na 
montagem do programa complete 

Para que o Assembler de INPUT 
funcione a contento, faca as seguintes 
modificacoes: na linha 5120, troque o 
niimero 6 por 22; na linha 61 10, adicio- 
ne :GOSUB6150; na linha 6150 troque 
GOSUB 6260 por GOSUB 6160. Carre 
gue, entao, o Assembler e digite esta pri- 
meira rotina: 

40 REM org 58035 

SO REM ti call cl 

60 REM Id a.J 

70 REM out 254 .a 

80 REM Id a. 16 

90 REM Id (23624) .a 
100 REM Id ix, 57435 
110 REM Id b.9 
120 RFM Jd a. 70 
130 REM Id hi , 299 
140 REM call me 
150 REM Id b, 15 
160 HEM Id a. 7 
170 REM Id hi, 616 
180 REM call me 
190 REM Id b,JB 
200 REM Id hi. 679 
210 REM call me 
220 REM Id b,2 
230 REM ldp Id hi ,65000 
740 RFM Id de. 
250 REM ldq dec hi 
260 REM push hi 
270 REM abc hi ,de 
280 REM pop hi 
290 REM jr nz, ldq 

300 REM djnz ldp 

30 1 REM nop 

302 REM nop 

303 REM nop 

304 REM nop 

305 REM nop 

306 REM nop 

307 REM nop 

308 REM nop 
310 REM ret 

Grave os mnemdnicos usando a op- 
cao correspondente do Assembler. De- 
pois, monte a primeira rotina e grave o 
programa em eddigo — se preciso, re- 
corra ao monitor de linguagem de ma- 
quina. Digite, entao, mais esta rotina: 



10 

20 



REM 
REM 



org 

k r 1 



5B146 
Id a, 253 



30 


REM 


in a , 254 


40 


REM 


bit. 1 .a 


50 


REM 


jr nz , ktt 


60 


REM 


ret 


70 


B EM 


me push be 


80 


REM 


puah af 


90 


REM 


Id a, (ix+0) 


100 


REM 


cal 1 asc 


110 


REM 


pop af 


120 


REM 


ca 1 1 pr int. 


130 


RFM 


inc hi 


140 


REM 


inc ix 


150 


REM 


pop be 


160 


REM 


d.inz me 


I/O 


REM 


ret 


180 


REM 


asc push hi 


190 


REM 


Id hi . J 5608 


200 


REM 


Id de,8 


210 


REM 


Id b, 31 


220 


REM 


sub b 


230 


REM 


ash add hi ,de 


24 


REM 


dec a 


250 


REM 


jr nz , ash 


260 


REM 


puah hi 


270 


REM 


pop be 


280 


REM 


pop hi 


290 


REM 


ret 


30 


REM 


cl Id IX. 16384 


310 


HEM 


id hi ,6912 


320 


REM 


Id a,Q 


33 


REM 


rip Jd (i x+0) ,a 


340 


REM 


inc ix 


35 


REM 


dec hi 


360 


REM 


push hi 


3 70 


REM 


Id de.O 


380 


REM 


abc hl.de 


390 


RFM 


pop h 1 


400 


REM 


jr nz , cl p 


410 


REM 


ret 


420 


REM 


print puah af 


430 


REM 


puah hi 


440 


REM 


push be 


450 


REM 


puah hi 


460 


REM 


pop de 


470 


REM 


id a.d 


480 


REM 


cp 1 


490 


REM 


j c c.next 


500 


REM 


puah de 


510 


REM 


Id de,1792 


520 


REM 


add hi , de 


5 10 


REM 


pop de 


540 


REM 


Id a.d 


55 


REM 


cp 1 


560 


REM 


jr z.next 


. l i J 


REM 


puah de 


580 


HEM 


Id de, 1792 


590 


REM 


add hi , de 


b()d 


REM 


pop de 


6 10 


REM 


next push de 


620 


REM 


Id de, 16384 


630 


REM 


add hi , de 


64 


REM 


pop de 


650 


REM 


Id a.B 


660 


REM 


pop be 


670 


REM 


push af 


680 


REM 


repl Id a , (be) 


o90 


REM 


Id Chi). a 


700 


HEM 


inc h 


710 


RFM 


i nc be 


720 


HEM 


pop af 


730 


REM 


dec a 


740 


REM 


jr z , exi 1 
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/so 


HEM 


push af 


760 


REM 


jr rept 


/70 


REM 


ex j t pop hi 


7fl0 


REM 


POP fl f 


/go 


REM 


push de 


BOO 


Ft EM 


Id de.22!J2B 


RIO 


REM 


add hi ,de 


B20 


ft EM 


pop de 


IH1) 


REM 


Id (hi) .a 


B4 


HEM 


puah de 


H'i() 


REM 


pop hi 


yf.o 


REM 


ret 



Grave essas duas rotinas separada- 
mente. O programa pode ser executado 
pelo comando RAND USR 58035, co- 
mo de costume. Lembre-.se, porem, de 
que a tabela com dados em ASCII — 
que comeca em 57435 — deve estar na 
memoria para que o programa f undone. 



PROGRAMA BASIC 



O programa escrito em BASIC 
resume-se a urn laco FOR-. NEXT que 
coloca as tetras das palavras da pagina 
inicial na memoria, formando uma ta- 
bela ASCII que o programa em e6digo 
pode utilizar. Ele apenas ajuda a mon- 
tar o programa, nao sendo necessario ao 
funcionamento do jogo depois que a ca- 
bela tiver sido gravada. 
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O programa eonsisce em uma rotina 
principal que chama as demais rotinas. 
Podemos, assim, cuidar de cada rotina 
separadamente, o que facilita muito a 
deteccao e correcao de erros. 

A primeira instrucao call cl chama a 
sub-rotina de limpeza da tela. Os co- 
mandos Id a,2 e out 254,a dcfinem as co- 
res da borda, eomo foi expiieado na pa- 
gina 556. O uso do comando out modi- 
fica apenas temporariamente a cor da 
moldura. Para tornarmos essa alteracao 
permanente, precisamos modificar o va- 
lor da variavel do sistema corresponden- 
te, que fica na posicao 23624. 

A cor da moldura especificada no co- 
mando out e 2, ou vermelho. Mas, pa- 
ra que o 2 seja colocado em 23624, de- 
vemos "desloca-lo" — operacao SHIFT 
— tres bits para a esquerda, resultando 
no valor 16. 



IMPRESSAO NA TELA 



A rotina rotulada com me controla 
a impressao de caracteres na tela. Cer- 
tos parametros devem ser fornecidos a 
ela para que possa imprimir o texto cor- 
reto na posicao desejada. 



O comando Id ix,57435 coloca no re- 
gistro IX o endereco do primeiro byte 
da tabefa ASCII, a fim de que a rotina 
de impressao saiba o que imprimir. 

O acumulador concern o atributo do 
caractere que sera impresso. Tanto em 
iinguagem de maquina quanio em BA- 
SIC o funcionamento e o mesmo. Quan- 
do o bit 7 esta ligado, o caractere e cin- 
ttlante — FLASH, O bit 6 da brilho ao 
caractere — BRIGHT. Os proximos tres 
bits determinant a cor do fundo, e os 
tres seguintes sao responsaveis pela cor 
dos caracteres. 

No programa-fonte, colocamos 70 — 
010001 10 em binario — , que tern o bit 
6 ligado, os bits que comrolam a cor do 
fundo nulos e os bits dos caracteres va- 
lendo 6. Teremos, assim, caracteres 
amarelos sobre fundo preto, brilhante 
e nao cintilante, 

O registro B funciona como contador 
de caracteres. O valor nele colocado de- 
termina o comprimento do texto que se- 
ra impresso. Na primeira vez que a ro- 
tina me e chamada, B contem 9 — as 
nove letras de A VALANCHE. 

O registro HL contem a posicao da 
tela a partir da qual o texto deve ser im- 
presso. Essa posicao e calculada em mi- 
meros de posicoes a partir do canto es- 
querdo da tela. Quando HL contem 
139, o primeiro caractere da primeira ca- 
deia de caracteres — ou seja, o "A" de 



A VALANCHE — e colocado na quin- 
ta linha da tela, onze posicoes a panir 
do lado esquerdo. 

A rotina me e chamada tres vezes pa- 
ra imprimir cada uma das tres linhas da 
tela inicial. 



PROGRAMACAO DE PAUSAS 



Para que o jogador possa let o titu- 
lo, devemos incluir uma pausa no pro- 
grama. Colocamos 2 no registro B, de 
modo que o laco responsavel pela pau- 
sa seja executado duas vezes. 

O niimero 65000 e colocado no regis- 
tro HL. O conteiido desse par diminui 
em uma unidade a cada volia do laco in- 
terne — rotulado com Idq. HL e guar- 
dado e recuperado da pilha somente pa- 
ra ganharmos tempo. 

Pode parecer estranho subtrair zero 
— conteiido de DE — de HL a cada vol- 
ta do laco. Mas trata-se apenas de um 
recurso utiltzado para afetar o indica- 
dor de zeros, que nao reage a instrucao 
pop. O comando jr nz depende desse in- 
dicador para que o programa possa sair 
do laco. Quando HL for reduzido a ze- 
ro e sub hi, de executar a proxima sub- 
tracao, o resultado obtido sera zero; ati- 
vado o indicador de zeros, o processa- 
dor saira do laco. 

Quando complete, o programa pros- 




seguira imprimindo a pagina de instru- 
gdes. Mas, por enquanto, a instrugao ret 
provoca o retorno ao BASIC. 

Nao se imports com os comandos 
nop que aparecem no final do progra- 
ma. Eles nao tem nenhum efeito sobre 
o microprocessador e sua funcao aqui 
e somente preencher espaco. 



ROTINAS AUXILIAHES 



AJgumas rot inas de apoio ao progra- 
ma principal foram momadas. A que 
tem o rdtulo kit aguarda que pressione- 
mos urna cert a tecla, e ainda nao sera 
usada. O principio de verificacao do te- 
clado aqui utilizado e igual ao explica- 
do no artigo da pagina 38 1 . 

Arotina me, encarregada de contro- 
lar a impressao na tela, comeca guar- 
dando os conteudos de BC e AF na pi- 
Iha. Em seguida, o conteudo da posigao 
de memdria apontada pelo registro IX 
(que contem o enderego inicial da tabe- 
la ASCII) e colocado no acumulador 
por Id a,(ix + 0), comando que emprega 
o enderecamento indexado. 

Os registros IX e IY s5o chamados de 
registros-indices, e dispoem de dezesseis 
bits para acomodar um endereco de me- 
mdria, A sintaxe desse tipo de coman- 
do — muito utilizado, alias, quando tra- 
balhamos com tabelas — e ix + d ou 
iy + d, onde d e um valor entre e 256 
que pode ser somado ao endereco apon- 
tado pelo registro-indice. 

Depots de colocar em A o cddigo do 
caractere que deve ser impresso na tela , 



o programa chama a sub-rotina asc, que 
calcula a posicao do padrao do caracte- 
re dentro de uma tabela de padroes exis- 
tente na ROM (veja o artigo da pagina 
381). O endereco inicial do padrao do 
caractere esta em BC, quando o proces- 
sador retorna da sub-rotina, Recupera- 
se o valor de AF da pilha e uma nova 
sub-rotina — Iprinl, que cuida da im- 
pressao propriamente dita — e ehama- 
da. Quando o processador retorna de 
Iprinl, HL contem a posicao da tela on- 
de houve impressao — na realidade, a 
posicao do byte superior do padrao do 
caractere. A instrugao inc hi aumenta es- 
te valor em uma unidade. O indice IX 
tambem e aumentado, passando a apon- 
tar para a prbxima letra da tabela 
ASCII. 

O par BC (B continha originalmente 
o comprimento do texto a ser impresso) 
e" recuperado da pilha; enquanto seu 
conteudo nao for zero, a instrugao djnz 
me diminui B em uma unidade e repete 
o processo de impressao. 

A rotina asc calcula a posicao do pa- 
drao do caractere a ser impresso. Em 
primeiro lugar, ela coloca temporaria- 
mente na pilha, por push hi, a posicao 
de impressSo que esta em HL, pois va- 
mos usar esse par de registros. Nele e co- 
locado o endereco inicial da tabela de 
padroes — 15608. O niimero 8 e, entao, 
colocado em DE e o 31, em B. A ins- 
trucao sub b subtrai 31 de A. A opera- 
cao e necessaxia porque a tabela de pa- 
droes comeca com o caractere de cddi- 
go 32 — espaco em branco. Os cddigos 
com valores menores que 32 sao coman- 
dos BASIC e nao caracteres. 

Um caractere e formado por oito 
bytes, cada qua! correspondence ao pa- 
drao de uma das linhas que compoem 
a letra. Assim, cada oito bytes consecu- 
tivos na tabela de padroes correspondem 
a um caractere. O lago com o rdtulo ash 
vai pulando de oito em oito bytes, ate 
encontrar a posicao do caractere que 
queremos tmprimir. Para isso, utiliza A 
como contador. Em outras palavras, 
add hl.de soma 8 a HL e dee a subtrai 
um de A. A instrucao jr nz, ash repete 
o processo ate que A se reduza a zero. 
O enderego do byte inicial do padrao de- 
sejado estara, entao, em HL. Este va- 
lor e transferido para a pilha e, em se- 
guida, recuperado em BC. O valor ori- 
ginal de HL — posigao na tela — tam- 
bem £ recuperado da pilha e a sub-rotina 
termina. 

A sub-rotina Iprinl cuida da impres- 
sao do caractere. Ela comeca guard an- 
do na pilha os pares AF, HL e BC. A 
continha o atributo do caractere, HL, 
a posigao de impressao na tela, e BC, 
o enderego inicial do padrao do carac- 



tere. As linhas seguintes realizam uma 
serie de testes com a posigio de impres- 
sio. Ao final deles, DE contem a posi- 
gao de impressio na tela. 

O programa continua no r6tulo next. 
Ali, push de coloca a posigao de impres- 
sao na pilha e Id de, 16384 coloca em DE 
o enderego inicial da tela. O enderego da 
RAM em que vamos colocar o padrao 
do caractere e a soma da posicao de im- 
pressao com o enderego inicial da tela 

— add hl.de. O resultado fica em HL. 
Recupera-se a posigao de impressao em 
DE e o acumulador recebe o valor 8. BC 
recupera o enderego inicial do padrao e 
AF e colocado na pilha, onde A serviri 
de contador, 

O rdtulo rept representa o lago que 
desenha a letra. A instrugao Id a, (be) co- 
loca em A o byte que contem uma linha 
do caractere e Id (hl),a transfere este 
mesmo valor para a tela. BC aponta pa- 
ra a tabela de padroes, enquanto HL 
aponta para a tela. A instrugao inc h so- 
ma uma unidade ao registro H, o que 
equivale a somar 256 a HL. O valor re- 
sultante aponta para o byte imediata- 
mcnte inferior ao anterior, de maneira 
que o caractere e desenhado linha por 
linha. 

BC tambem tem seu conteudo au- 
mentado em uma unidade por inc be 
contador do lago e recuperado da pilha 

— pop af — e A e diminuido em uma 
unidade. Se A nao for igual a zero, a ins- 
trugao jr z.exit e ignorada, AF volta pa- 
ra a pilha e o processador retorna para 
desenhar mais uma linha do caractere. 

Como A continha inicialmente o va- 
lor 8, serao desenhadas exatamente oi- 
to linhas, uma abaixo da outra, comple- 
tando uma letra. Quando A contem ze- 
ro, jr i,exit desvia o programa para o 
rdtulo exit. O atributo do caractere e, 
entao, colocado na tabela de atributos, 
Esse parimetro determina a cor do ca- 
ractere. Recupera-se a posigao de im- 
pressao em HL e o atributo vai para A 

— pop hi e pop af. 

O conteudo de DE volta para a pilha 
e este par recebe o enderego inicial da 
tabela de atributos — 22528. A instru- 
gao add tit.de calcula o enderego da 
RAM correspondente e o atributo e co- 
locado nele por Id (hl),a. A posigao de 
impressao na tela, preservada ora em 
DE, ora na pilha, volta para HL e a sub- 
rotina termina. 

A sub-rotina cl limpa a tela, sendo 
chamada diversas vezes no decorrer do 
programa. Primeiro, o registro IX rece- 
be o enderego inicial da tela — 16384. 
HL, por sua vez, recebe o niimero de 
bytes da mesma — 6912 — , servindo co- 
mo contador. A instrugao Id a,0 coloca 
em A. A instrugao Id (ix + 0),a coloca 
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na posicao da tela apontada por IX, 
o que, efetivamente, limpa aquele byte. 
O registro IX, aumentado em uma uni- 
dade, passa a apontar para o proximo 
byte da tela. HL e diminuido em uma 
unidade e, enquanto nao chegar ao va- 
lor zero, a instrucao jr nz.elp retornara 
para apagar o proximo byte da tela. Na 
realidade, existem quatro linhas entre 
dec hi e jr nz.elp; contudo, elas so tern 
a funcao de prolongar o tempo, como 
o rrituio Idq da rotina anterior. 



A primeira coisa a programar e uma 
pagina anunciando o videogame. As li- 
nhas seguintes criam essa pagina, obten- 
do os dados necessaries em uma tabe- 
la, que montaremos mais tarde. Por en- 
quanto, carregue o Assembler de IN- 
PUT com as seguintes modificacoes, pa- 
ra que fund one de maneira satisfatdria: 
na linha 5120, troque o niimero 6 por 
22; na linha 6110, adicione :GOSUB 
6150; na linha 6150, troque GOSUB 
6260 por GOSUB 6160. Modifique a li- 
nha 5000 com CLEAR 1500,&CFFF, 
para proteger o topo da memoria. Di- 
gite, em seguida, este programa: 



10 


org -12268 


20 


call 1.08 


30 


Id de,296 


40 


Id hi , -14000 


fiO 


Id be, 9 


60 


call 92 


70 


Id de,493 


80 


Id hi. -13991 


90 


Id he. 15 


ino 


call 92 


no 


Id de,5?2 


120 


Id hi ,-13976 


1.10 


Id he, 18 


140 


call 92 


ISO 


Id b,10 


160 


ldp Id hi , fi 


170 


id de.O 


1R0 


idq dec hi 


190 


push hi 


200 


gbc hl.de 


210 


pop hi 


270 


jr ns: , 1 dq 


210 


d _i n z ldp 


240 


ret 


250 


end 



65 00 



>o end 

Grave o programa-fonte e depois 
monte-o. O programa em c6digo pode 
ser gravado depois disso. 
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O programa Iiga a tela de texto de 
quarenta colunas por intermedio de uma 

rnfina Ha RHKil ruin mrfprem p 1(1S pm 



decimal. Em seguida, reserva uma por- 
9I0 da mem6ria para os c6digos ASCII 
do texto a ser impresso. Ela comeca no 
endereco -14000. 

Uma outra rotina da ROM, que fica 
no endereco 92, encarrega-se da trans- 
ferencia de uma area da RAM para a 
VRAM. Para que o texto certo seja co- 
locado na posicao desejada, certos pa- 
rametros devem ser fornecidos. 

O par DE precisa conter a posicao 
inicial da area da VRAM em que vamos 
colocar o texto. O par HL, por sua vez, 
content o endereco inicial da area da 
RAM que sera transferida, BC, final- 
mente, functona como contador de 
bytes, determinando que comprtmento 
tera o texto que vai ser impresso. 

Essa rotina da ROM e chamada tres 
vezes, uma para cada linha que aparece 
na tela inicial. Antes de cada comando 
call, os valores adequados sao coloca- 
dos nos pares DE, HL e BC. 



PR0GRAMACA0 DE PAUSAS 



Para que o jogador possa ler ts'tu- 
lo, devemos incluir uma pausa no pro- 
grama, Colocamos 10 no registro B, de 
modo que o laco responsave! pela pau- 
sa seja executado dez vezes. 

O numero 65000 e colocado em HL, 
cujo conteudo diminui em uma unida- 
de a cada volta do laco interno — rotu- 
lado com Idq. HL e guardado e recupe- 
rado da pilha so para ganharmos tempo, 

Pode parecer estranho subtrair zero 
— conteiido de DE — de HL a cada vol- 
ta do laco. Mas trata-se apenas de um 



recurso utilizado para afetar o indica- 
dor de zeros, que nao reage a instrucao 
pop. O comando jr ta depende desse in- 
dicador para que o programa possa sair 
do laco. Quando HL for reduzido a ze- 
ro e sub hi, de subtrair zero dele, o re- 
sultado sera igual a zero; ativado o in- 
dicador de zeros, o processador saira do 
[ago. 

Quando o programa estiver comple- 
te, ele prosseguira imprimindo a pagi- 
na destinada a exibicao das instrucoes. 
Mas, por enquanto, a instrucao ret pro- 
voca o retorno ao BASIC. 



PROGRAMA BASIC 



As linhas seguintes geram a tabela 
ASCII necessaria ao functonamento do 
programa em c6digo. 

5 CI.5: CLEAR J00,-H000 
10 AS^"AVALANCHECr ia<;ao : A. Doe 
Programa: R. Ntfder" 
2 FOF< T*0 TO 41 

10 POKE - 14000+1". ASC(M1D5 (AS. T + 
1.1) ) 
4 NEXT 

50 DEFUS£U = -12Z8R 
60 X-USRl (0) 
7 CLS 
80 END 

A linha 5 limpa a tela e protege o to- 
po da memoria que contera a tabela. 

A linha 10 coloca o texto utilizado na 
pagina inicial dentro da variave! AS. E, 
sem diivida, bem melhor digital uma ta- 
bela na forma de um texto do que digi- 
tar os niimeros de todos os codigos AS- 
CII correspondentes. 



quarenia coiunas por imermetuo ae 1 
rotina da ROM cujo endereco e 108, 



em 
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Em seguida, urn laco FOR.. .NEXT 
coloca os cddigos ASCII na memdria, 
criando a tabela ASCII. 

O prdprio programa testa, entao, a 
rotina em codigo — se ela estiver gra- 
vada na memdria. 

O jogo nao vai prectsar desse progra- 
ma BASIC depots que a tabela liver si- 
do gravada. Guarde-o, porem, para aju- 
dar na montagem. 



A primeira coisa que se programa em 
qualquer jogo 6 uma tela exibindo o ti- 
tulo. Embora a rotina de impressao es- 
teja em c6digo, serd mais facil colocar 
os cddigos ASCII das letras na memd- 
ria usando um programa BASIC: 

1 CLEAR 200,16999 

10 AD-17000 

30 READ AS 

40 FOR A-l TO LEN(AS) : B-ASC(MID 

S(AS.A.l)) 

50 IF B<LH61 THEN POKE AD , B ELS 

E POKE AD.B-96 

60 AD-AD+1 



70 NEXT A 

80 DATA "avalanchecr iacao: a. da 

e prograia : s. kellaway e g. he 
dley" 

Quando eie e executado, a tabela ne- 
cessaria ao jogo e criada na memdria do 
microcomputador. Para gravar a tabe- 
la, utilize CSAVEM "DADOS", 17000. 
17059, 19000. 

Se quiser usar o Assembler de IN- 
PUT, precisara ampliar a memdria dis- 
ponivel; se nao o fizer, o espaco serd in- 
suficiente para o Assembler e o progra- 
ma em c6digo. Digite, entao: 

POKE 25,6 
POKE 26,1 
NEW 

Depois, digite CLEAR 200,18999 pa- 
ra proteger o topo da mem6ria e, em se- 
guida. o programa: 



60 


JSR LPRINT 


70 


LDX #1 384 


80 


LDB |15 


90 


JSR LPRINT 


100 


LDX |1445 


110 


LDB #21 


120 


JSR LPRINT 


130 


LDX 11481 


140 


LDB #12 


160 


JSR LPRINT 


160 


LDA #5 


170 


PAUSE LDX #655 35 


180 


PAUSE I LEAX -l.X 


190 


BNE PAUSEI 


200 


DECA 


210 


BNE PAUSE 


220 


JSR CLS 


230 


RTS 


240 


LPRINT EQU 19174 


250 


CLS EQU 19148 



Os mnemdnicos podem ser gravados 
por meio da opcao correspondente do 
Assembler. Monte o programa e grave- 
o em cddigo — se nao souber fazer is- 
to, utilize o monitor Assembler. 

Alem desse programa e da tabela, as 
outras rotinas aqui apresentadas serio 
necessarias para que voce veja o resul- 
tado por meio de EXEC 19000. 



PROGRAMA BASIC 



O programa em BASIC comeca re- 
servando uma boa quant idade de me- 
mnria para armazenar o programa em 
codigo. Em seguida, as letras utilizadas 
na primeira tela sao eolocadas na me- 
mdria, representadas por seus cddigos 
ASCII. Em geral, e preciso subtrair 96 
de cada codigo para que eles correspon- 
dam aos cddigos de letras invertidas. Al- 
gumas letras, porem — cddigos meno- 
res que 61 , em hexadecimal — , nao pre- 
eisam dessa operacao. 



L1MPEZA DA TELA 



A rotina em cddigo comeca em 
19000, depois da tabela ASCII, e salta 
para a sub-rotina CLS, que comeca em 
19148. Na primeira rotina, o endereco 
desse rdtulo 6 definido por uma tnstru- 
cao EQU, para que os desvios sejam cal- 
culados. Eis a sub-rotina: 



10 
20 
30 
40 
50 



ORG 19000 
JSR CLS 
LDX #1066 
LDlf #17000 
LDB #9 



10 


ORG 19148 


20 


CLS LDX #1024 


30 


LDA #128 


40 


CLSI STA ,X+ 


50 


CMPX #1536 


60 


BLO CLSI 


70 


RTS 



O endereco inicial da tela — 1024 — 
e colocado no registro X e o cddigo do 
espaco em branco — 128 — , em A, 
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STA,X + coloca esse codigo na posicao 
apontada por X; o conteudo de X au- 
menta em uma unidade. A rotina 6 re- 
petida virias vezes ate que X seja maior 
que 1536, endereco final da tela, 

Como o conteudo de X aumenta an- 
tes da colocaeao de 128 em um endere- 
co da tela, um comando BLO — desvio 
se for "rnenor que" — e usado para sair 
do laco CLSI. Essa rotina deve ser gra- 
vada separadamente. 



IMPRESSAO NA TELA 



Quando o microprocessador retorna 
da sub-rotina CLS, a rotina principal 
prepara os registros para que se faca a 
impressao na tela. 

O registro X content a posicao que 
desejamos para o primetro caractere da 
linha a ser irnpressa. O "A" de Avalan- 
che sera impresso, entao, em 1066. 

O registro Y content a posicao de me- 
m6ria da tabela ASCII da primeira le- 
tra a ser irnpressa. Assim, 17000e colo- 
cado em Y. O registro B content o nii- 
mero de caracteres a ser impresso. Co- 
mo vamos comecar escrevendo "AVA- 
LANCHE", 9 e colocado em B. Em se- 
guida, ocorre um salto para a sub-rotina 
LPRINT. Mais uma vez uma instrucao 
EQU define o endereco 19174 para efei- 
to de calculos de desvtos. 



A ROTINA LPRINT 



Esta rotina comeca em 19174. Sua 
funcao consiste em obter os dados da ta- 
bela ASCII, colocando os c6digos na te- 
la, um de cada vez. 



10 


ORG 19174 




20 


LPRINT LDA 


.¥+ 


30 


STA ,X+ 




40 


DECB 




50 


BNE LPRINT 




60 


RTS 





Os c6digos da tabela apontados por 
Y sao colocados em A e o apontador 
volta-se para a pr6xima posicao. O co- 
mando STA.X + coloca-os, entao, na 
posicao de tela apontada por X, e X au- 
menta em uma unidade, apomando pa- 
ra a posicao seguinte. 

A instrucao DECB subtrai uma uni- 
dade do conteudo de B e a rotina e re- 
petida ate que B chegue a zero. Quan- 
do isso ocorre, o microprocessador re- 
torna a rotina principal, Guarde esta ro- 
tina separadamente. 

A rotina prossegue ate" completar a 
pagina de rosto de nosso videogame, im- 
primindo linha por linha. 

Para escrever uma nova linha, a po- 



sicao de impressao £ colocada em X e 
o comprimento do texto, em B. 

Nao ha necessidade de colocarmos 
um novo valor em Y, ja que esse apon- 
tador simplesmente percorre a tabela 
ASCII B caracteres de cada vez. 



A ROTINA DE PAUSA 



Quando a ultima linha da pagina ini- 
cial tiver sido irnpressa, o microproces- 
sador far£ uma pausa no programa, pa- 
ra que possamos le-la, antes de ser subs- 
tituida pela tela de instrucoes. 

O niimero 5 e colocado no acumula- 
dor e o registro X recebe o valor 65535. 
LEAX -1,X subtrai uma unidade de X 
e BNE PAUSEl retorna. de modo que 
vai diminuindo-ate ser reduzido a zero; 
A tambem e diminuido. O processo se 



repete ate" que A tambem seja igual a ze- 
ro e o comando BNE permita que o pro- 
cessador deixe o laco. 



D0IS LACOS 



O laco externo PAUSE — baseado 
no acumulador — repete-se, assim, cin- 
co vezes; a cada repeticao, o laco inter- 
no PAUSEl 6 executado 65535 vezes. O 
ttso de dois lacos tern a vantagem de 
possibilitar o acerto do tempo. O laco 
externo nos da um ajuste grosseiro e o 
laco interno, um ajuste mais fino, 

Por fim, a rotina CLS b'mpa a tela 
novamente. Em seguida, o computador 
passa a pagina de instrucoes, que apre- 
sentaremos no proximo artigo desta se- 
rie. Por hora, uma instrucao RTS retor- 
na ao BASIC. 
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DOOIHOO) 



Embora suas regras sejam bastante 
simples, o jogo do Otelo requer murta 
estrat§gia. Programa-lo e facil: 
monte o tabuleiro, crie as pecas 
e desafie sua maquina 1 



?M 



Otelo e um jogo de estrategia que se 
desenvoive num tabuleiro de oito por oi- 
to posicoes — como os tabuleiros de xa- 
dre2 ou dama. As regras sao bem faeeis 
e o jogo tambem. 

O objetivo e tomar o maior niimero 
possivel de pecas do oponente. A joga- 
da consiste basicamente na colocacao 
das pecas no tabuleiro, uma a uma, por 
um jogador de cada vez, ate preenche- 
lo totalmente. Cada jogador comeca 
com duas pecas e tenia totnar as do opo- 
nente, "cercando-as". Paraconsegui-lo, 
deve colocar as pecas de maneira que as 
do oponente fiquem entre as suas — ou 
seja, que se forme uma trilha de pecas 
adversarias com pecas suas nas duas ex- 
tremidades. Ao tomar uma trilha adver- 
saria, esteja ela na horizontal, vertical 
ou diagonal, todas as pecas do oponen- 
te serao substituidas por pecas do joga- 
dor em questao. 

O placai de cada jogador correspon- 
de ao niimero de pecas que ele tern no 
tabuleiro naquele momento. Sera ven- 
cedor aquele que tiver o maior numero 
de pecas no tabuleiro quando ele estiver 
totalmente cheio, 

Nesta versao para computador, esta- 
remos jogando contra a maquina que, 
alem de mostrar o tabuleiro, tambem 
atualiza o piacar. 



DICAS PARA VENCER 



Para quern nunca jogou Otelo, as di- 
cas que se seguem serao muito uteis. 

As posicfles dos cantos sao extrema- 
mente importantes, ja que, uma vez con- 
quistadas, jamais serao roubadas. Em 
conseqiiencia, a ocupacao de tais posi- 
coes e fundamental para garantir a vi- 
t6ria — mesmo que implique o sacriff- 
cio de algumas de nossas pecas ou im- 
peca^um'outro movimento que pudesse 
nos render mais pecas do oponente. 

Se considerarmos que uma peca po- 
de completar mais de uma linha — na 
vertical, na horizontal e na diagonal — , 
concluiremos que o movimento aparen- 
temente mais 6bvio nem sempre e o me- 
Ihor, pois, nos estagios mais avancados 
do jogo, sera possivel tomar duas ou tres 
linhas de pecas do oponente com a sim- 
ples adicao de uma peca. 



Pense sempre adiante. Podemos in- 
duzir o adversario a criar situacoes que 
nos ajudem a tomar posicoes vitais, sim- 
plesmente simulando ou fingindo que fi- 
zemos uma ma jogada. 



PROGRAMA 



Uma das grandes vantagens da ver- 
sao de Otelo para computador sobre o 
verdadeiro tabuleiro e que nela o com- 
putador fica com todo o "trabalho pe- 
sado". Alem de desempenhar o papei de 
adversario, ele substitui as pecas con- 
quistadas e cuida do piacar, deixando- 
nos livres para pensar s6 nas jogadas. 

O computador demora um pouco pa- 
ra fazer suas jogadas, pois leva em con- 
ta todos os movimentos possiveis. No 
decorrer do jogo, a medida que o nii- 
mero de posicoes vazias diminui, passa 
a tomar decisoes com maior rapidez. 



JOGANDO 



Ao rodar o programa, o computador 
perguntara se voce deseja fazer a primei- 
ra jogada ou nao. Para esecutar uma jo- 
gada, e* necessario fornecer-lhe duas 
coordenadas. Estas especifieam a posi- 
cao da peca no tabuleiro e estao com 
preendidas entre os valores 1 e 8. For- 
necemos primeiramente a coordenada 
da linha — ou seja, do eixo Y, com ori- 
gem no topo da tela — e, depois, a coor- 
denada da coluna — eixo X, com ori- 
gem no lado esquerdo do tabuleiro. Se 
fornecermos (zero) para as coordena- 
das, o jogo sera encerrado; se fornecer- 
mos 9, transferiremos o direito de jogar 
para o computador. 



PRIMEIRAS LINHAS 



Digite agora a primeira parte do jo- 
go do Otelo. Se voce' rodar o programa 
como esta, vera o tabuleiro na tela, mas 
ainda nao pod era jogar. 

Salve as linhas digitadas em disco ou 
em fita cassete para mais tarde incorpo- 
ra-las a segunda parte do programa, que 
sera apresentada num prbximo artigo, 
completando o jogo. 



10 BORDER 0: PAPER 7: INK 1: 
c[,s 

15 PRINT AT l,Ui INVERSE 1 ; " 
OTHELLO* 

20 PRINT AT 10, 2; "VOCE QUER C 
OMECAR ? (S OU N) " : INPUT X$ 
: IF X5="" THEN GOTO 20 
30 LET X$=X5(1): JF XSO'S" 
AND XSO"N" AND XSO"s" AND X 
$<>"n" THEN GOTO 2 
40 LET CP=1: IF XS-"N" OR X$ = 
"n" THEN LET CP=2 
100 DIM B(B,8): DIM C(8): OTM 
IXB.7): OTMXtfiO): DIM y £60} : 
DIM N<60) 

110 LET B(4.4)'l: LET B(4.53=2 
: LET B($.4)=Z: LET B(5,51*»l 
120 FOR F = l TO 8: READ A: LET 
D(F.I)=A: READ A: LET D(F,2)=A 
: NEXT K 
1 .30 DATA -JU-1.,0, -1,1, -1,-1,0, 

1,0,-1,1,0,1,1,1 

140 FOP F^O TO 7\ READ A.B.C: 
I'OKE USR »A*+F,A: pokf: USH "B" 
+ F,B: POKE USB "C+F.C: NEXT F 
ISO DATA 204 ,0.0,51 .60,60. 704, 
126,66,51,126,66, 2 04, 126,66,51 
, 126.66. 2 04.60,60, St ,0,0 



\MS\ 



10 HOME : VTAB (3): HTAB (15) 
15 INVERSE : PRINT "OTELO 

" : NORMAL 
20 VTAB (10): PRINT "QUER JOGA 
R PRIME I RO (fl/N) " ; : INPUT X$: 
IF X$ = "" THEN 20 
10 XS ■ LEFTS (XS.l) :CF - 1: I 
F XS = "N" THEN CP = 2 
40 IF X$ < > "S" AND XS < > 
"N" THEN GOTO 20 
100 DIM B<8,8) „C<8) ,[>(8,2) ,X(6 
I!) ,¥(60) ,N(60) 

110 B(4.4) = 1:8(4.5) = 2:B{5,4 
) = 2:B(5,5) - 1 

120 FOR F - I TO 8: READ A:D(F 
,)) = A: READ A:D(F.2) = A: NEX 
T 

] 30 DATA -1.-1.0.-1,1.-1,-1.0 
,1,0.-1 ,1 ,0,1 ,1,3 



m 



5 COLOR 1,15.15:SCREEN2 

10 FOR X=l TO 16: READ A:NEXTX:G 

OSUB 9200: RESTORE 
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AS REGRAS DO JOGO 



PICAS PARA VENCER 



A PRIME IRA TELA 

SELECAQ DOS GRAFICOS 
PARA TABULEIRO 



E AS PE CAS 

INICIAUZACAO DO JO GO 



DIGITANDOAROTINA 



PRINCIPAL 



A VEZ DO JOGADOR 



15 DRAWBM60 
LO":GOSUB 93 
20 DRAW "BM 2 ft 
EB JOGAR PR] 
RAWBM90.140 

9300 
ZJ XS-1NKEYS 
25 C0L0R15,4 
30 IFXSO'S 
"ANDXSO"n-T 
40 CP-1:IFX$ 
= 2 

100 DIM B(8. 
) ,Y{60) ,N(60 
110 B(4,4)-l 
B<5,5)-1 
120 FOB F^l 
A:READ A:D(F 
130 DATA -1. 
,0.-1.1.0.1, 
150 G0SUB 11 



.40:S25:C1":A5=" 
00 

,120;S10;C2" :AS="QU 
METRO" :GOSUB 9300 :D 
" :A$="S OU N" tGOSUB 

: TFX$=""THEN 21 
,4 

ANDXS<>"a"ANDXSO"N 
HEN 21 

N' , ORX$="n"THEN CP 

8] ,C{8) ,D(8, 2) ,X(60 

:B(4.5)=2:B{5.4)=2: 

TO 8:READ A:D(F, ] ) ■ 

, 2) =A:NEXTF 

-1 .0.-1. 1 .-1.-1,0, 1 

1,1 

00 



■■ 

10 PMODE 1.1: COLOR 4 , i : PCLS : SCfi 
EEN 1.0: FOR X=l TO 16: READ A:NE 
XTX:GOSUB 9200: RESTORE 
15 DRAW"BM60,40;S16" :AS-"OTHELL 
0" :GOSUB 9300 

20 DRAWBM26, 120;S8;C2" :A$-" Q 
UER JOGAR PRIMEIR0" :G0SUB 9300: 
DRAW"BM100.140":AS»"S OU N":GOS 
UB 9300 

21 XS-INKEY3:IF XS- - " THEN 21 
30 IF XSO"S" AKD XS<>"N" THEN 
21 

40 CP-1:IF XS-"N" THEN CP-2 

100 DIM B(8,8) .C<8) ,D{8.2) ,X(60 

) ,Y(60) ,N(60) 

110 B(4.4)-l:B{4.5)-2:B(5.4)-2: 

B(5,5)-l 

120 FOR F-l TO 8:READ A;D{F,1>- 

A:READ A : D <F . 2) -A .'NEXT F 

130 DATA -1,-1.0.-1,1.-1.1,0,1 

,0.-1.1.0,1,1,1 

150 GOSUB 1100 

As linhas 10 a 40 geram a primeira 
tela que o jogador ve, ou seja, o ti'tulo 
do jogo e a pergunta que o inicia. A U- 
nha 10 (linha 5, no MSX) se encarrega 
do ajustamento das cores e da limpeza 
da tela. O nome do jogo e gerado na li- 
nha 15. Como nos programas para os 
micros TRS-Color e MSX usou-se a te- 
la de alta resolucao, existe uma rotina 
que desenha letras no final do progra- 
ma (a qua! ]a utilizamos anteriormente 
em INPUT). 

A linha 20 apresenta a primeira per- 



gunta, destinada a definir quem jogara 
primeiro. A resposta, armazenada em 
X$, e depois reduzida a sua primeira le- 
tra, na linha 30. CP corresponde ao jo- 
gador em questao e recebe o valor 1 
quando quem joga e voce e 2 quando e 
o computador. A linha 40 faz a verifi- 
cacao por S e N, 

As linhas 100 a 1 30 inicializam as va- 
riaveis e matrizes usadas no jogo. A li- 
nha 100 cuida das matrizes. B(x,y) re- 
presenta o tabuleiro; os valores arma- 
zenados em cada elemento representam 
o status do quadrado correspondente no 
tabuleiro. Se o valor for 0, o quadrado 
esta vazio; se for 1, uma pe?a pertencen- 
te ao jogador ocupa aquela posicao;, e 
se for 2, a posicao esta ocupada por uma 
peca do computador. C(x) e usado pa- 
ra verificar as jogadas do jogador. 



D<x,y) contem os desloeamentos X e Y 
nas oito direcoes possiveis da jogada. 
X{x), Y(x) e N(x) sao usadas nos calcu- 
los para a jogada do computador. 

A linha 1 1 especifica as posi?6es ini- 
ciais no tabuleiro. Cada jogador tern 
duas pecas posicionadas em seu centro, 
no comedo da disputa. As direcoes pos- 
siveis, partindo dessa posicao, sao defi- 
nidas pela linha DATA 130. Cada va- 
lor representa um deslocamento X ou Y, 
com os niimeros negativos indicando es- 
querda ou topo do tabuleiro, respecti- 
vamente. 

Na versao para os microcompuiado- 
res Spectrum, as linhas 140 e 150 geram 
UDG para o quadrado vazio e para as 
pe<;as. A linha 140 procede a leitura dos 
dados apresentados pela linha 150 e cria 
os UDG A. B e C. 




LACO PRINCIPAL 



5 00 GOSUB 100 

$05 IF CS+PS-64 THEN GOTO 

4000 
510 LET EG-0 : IF CP=1 THEN 
GOSUB 2000: GOSUB 1000: IF EG = 
1 THEN GOTO 4000 
515 IF CS+PS=64 THEN GOTO 

4000 
520 IF CP=2 THEN GOSUB 3000 
530 GOTO 500 



HIE] 



500 GOSUB 1000 

505 IF CS + PS - 64 THEN 4000 

510 EG " 0: IF t!P = 1 THEN GOS 

UB ZOOOr GOSUB 1000: IF EG = 1 

THEN 4000 

515 IF CS + PS - 64 THEN 4000 

520 IF CP = 2 THEN GOSUB 3000 

530 GOTO 500 



Vfi 



" 



500 GOSUB ]00 

505 IF CS+PS=64 THEN 4000 

510 EG=0:IF CP=L THEN GOSUB 200 

.GOSUB 1000 : LINE (112 , 150) - (144 

,180) ,1,BF:TF EG=1 THEN 4000 

515 TF CS+PS=64 THEN 4000 

520 IF CP-2 THEN GOSUB 3000 

530 GOTO 500 

o 

500 GOSUB 1000 

505 IF CS+PS-64 THEN 4000 

510 EG-0:IF CP»1 THEN GOSUB 200 

0:GOSUB 1000:COLOR 1:LINE(118,1 

50)- <150, 180) , PSET.BF.IF EG-1 T 

HEN 4000 

515 IF CS+PS=64 THEN 4000 

520 IF CP-2 THEN GOSUB 3000 

530 GOTO 500 

O laco principal do programa est& en- 
tre as linhas 500 e 530. A linha 500 cha- 
ma a sub-rotina que desenha o tabulei- 
ro. As linhas 505 e 515 verificam se o 
tabuleiro esta cheio, ou seja, se a soma 
dos pontos do jogador, PS, com os do 
computador, CS, resulta em 64 (ruime,- 
ro de posicoes do tabuleiro). , \> i 

A linha 510 ajusta o indicador de fi- 
nal de jogo (EG) para e chama a roti- 
na responsavel pela vez do jogador, se- 
guida pela sub-rotina do tabuleiro. Se 
depois da execucao dessas sub-rotinas o 
indicador EG for set ado (valor 1), o pro- 
grama sahara para a sub-rotina de final 
de jogo, que comeca na linha 4000. A 
jogada do computador e feita pela linha 



520, caso CP seja igual a 2 (sub-rotina 
3000). 



DESENHANDO TABULEIRO 



100 CIS : PRINT TAB 11: "12 34 56 

78" : LET PS = : LET CS=0 

1010 FOR F-l TO 8; PBINT TAB 9; 

F; " " ; : FOR G=l TO 8 

1020 TF B(F.G)=0 THEN PRINT CH 

RS 144; 

1330 IF B(F,G)=1 THEN PRINT T 

NK 2;GHR$ 145;: LET PS=PS+1 

1040 IF B(F,G)-2 THEN PRINT I 

NK 2;CHR$ 146;: LET CS=CS+1 

1050 NEXT G: PRINT : NEXT F 

1052 LET P$=" PONTOS" : IF PS=1 T 

HEN LET P$=" PONTO" 

J 054 LET Q$ = " PONTOS" : IF CS«1 T 

HEN LET Q$- "PONTO" 

1060 PRINT " INK 2;" VOCE *=";T 

A8 20; "COMPUTADOR*" : PRINT " "i 

PS;" "; PS J TAB 20;CS;" " ;Q$ 

107 RETURN 



HIE] 

1000 HOME 
2345678" : PS 
1010 FOR F 
B{ 16) ;F;" 



PRINT TAB( IB) ; "1 
= 0:CS = 0: PRINT 
• 1 TO 8; PRINT TA 
' ; : FOR G = 1 TO 8 



IF B(F,G) < > 1 AND B(F. 

> 2 THEN B(F.G) = 

IF B(F,G) = THEN PBINT 



.1015 
G) < 
1020 
"+"" ; 

1030 IF B(F,G) 

CHR$ (48) ; : PS 

1040 IF B(F,G) 

SE : PRIN1 ; 

S + 1 

1050 NEXT G 

1052 PIS = " 

THEN PIS - 
1054 P25 = " 

THEN P2S - 
1060 PRINT 
" ; TAB ( 2 5) 



■ 1 THEN 

■ PS + 1 
= 2 THEN 

NORMAL ; 



PBINT 

INVER 
CS - C 



NEXT F 
TF PS - 



PRINT : 
PONTOS" : 

PONTO" 
PONTOS " : 
PONTO" 
PRINT " 
"COMPUTADOR = " ; : 
INVERSE : PRINT " ": NORMAL : P 
R1NT PS;P1$; TAB ( 25);CS;P2$ 
10 70 RETURN 



IF CS = 1 



JOGADOR 



Wi 



1000 PS=0:CS-0 
1010 FOB F=1TOB:FOB G-1T0B 
1030 IF B(F,G)=-1 THEN LINE((G-1 
) M6+64 , (F-l) *16+12) - (C16+64 . F 
*16+12) , 15,BF:PS"PS+1 
1040 IF B(F,G)*2 THEN LINE((G-1 
) *16+64. (F-l}*16+12) ~(G*16+64,F 
*1G+12) , 1 ,BF:CS=CS+1 
1050 NEXTG.F 

1060 DBAU"BM10,90;C1" :A$="VOCE" 
:G0SUB9300 :DRAW"BM200,90" :AS="C 
OMPUT":GOSUB9300 
1063 LINE (20, 110) -(28, 11.8) ,15,B 



F: LINE (220,110) -(226,118) , 1 , BF 

1065 LTNE[5,60)-(42,80) ,1 ,RF:LI 
NE(205,60)-(242,90) ,1 . BF 

1066 DRAW" BM 1 2, 62; SI 6: CI. 5" :AS=M 
ID$(STR$(PS) ,2) :GOSUB9300:DRAW" 
BK212.62" :A$ = MTDS (STR$(CS) ,2) :G 
OSUB9300:DRAW"S8" 

1070 RETURN 

1100 CLS:FORX=0TO7:DRAW"BM"+STR 

$(X*16+70)+".0;S8"+NU$(X+l) : NEX 

TX 

1110 LINE t64,12)-(192,140) ,2,BF 

1120 FORX=0TOB:LINE(X*16+64.12) 

-<X*16+64,140) ,1:NEXT 

1 1 30 FORY=DTOB : LINE (64 , 1*16+12) 

-U92.Y"16+12) ,1;NEXT 

11.40 FORY = 0TO7 : DRAW"C) 5SBBM54 , * 

+STR$(Y*16+14)+NUS(Y+1) :NEXT 

1150 RETURN 



D 



1000 PS-0:CS-0 

1010 FOR F-l TO 8: FOR G-l TO 8 
1030 IF B(F,G)=1 THEN PAINT (G*l 
6+54, F*16) ,1, 3:PS-PS+1 
1040 IF B(F,G)-2 THEN PAINT(G»1 
6+54. F* 16) -4,3 :CS-CS+1 
1050 NEXT G,F 

1060 DRAW"BM0,15O;C2":AS='' VOCE 
":GOSUB 9300 :DRAW"BM186, 150": 
A3="COMPUT" : GOSUB -9300 

1063 LINE(62,150)-{70,158) .PSET 
.B: LINE (246, 150) -(256. 158) , PSET 
■ B 

1064 PAINT{248,152) .4,2 

1065 COLOR 1 :LINE(0. 60)- (32.80) 
. PSET, BF: LINE (216, 60) -(248, 80) , 
PSET.BF 

1066 DRAW'BMO, 60 ;S16:C4": AS-MID 
S(STR5(PS) ,2) : GOSUB 9300:DRAW"B 
M216,60" :AS-MIDS(STR$(CS) , 2) :G0 
SUB 9300: DRAW "SB" 

10 70 RETURN 

1100 PCLSl:COLOR2:FORX-0 TO 7;D 

RAW"BM"+STRS(X*16+70)+" ,0;S8"+N 

US(X+1) :NEXT X 

1110 LINE (64,12)- (192. 140) , PSET 

,BF: COLOR 3 

1120 FOR X-0 TO 8:LINE(X*16+64, 

12)-(X*16+64.140) , PSET: NEXT 

1130 FOR ¥=0 TO 8 : LINE (64 , Y*16+ 

12)-(192,Y*16+12) ,PSET:NEXT 

1140 FOR Y-0 TO 7 : DRAWC2S8BM54 

, "+STR$(Y*16+14)+NU$(Y+1) : NEXT 

1150 RETURN 

A sub-rotina que tem im'cio na linha 
1000 desenha o tabuleiro. Primeiro, lim- 
pa a tela, imprime (ou desenha, no ca- 
so dos microcomputadores das linhas 
MSX e TRS-Color) os niimeros das co- 
lunas e zera os dois placares. 

O laco FOR... NEXT que fica entre 
as linhas 1010 e 1050 do programa de- 
senha /a tabuleiro na tela, linha por li- 
nha. A medida que as pecas sio mos- 
tradas, incrementa-se o placar. 

As linhas 1052 e 1054 melhoram a 
"gramatiea" do placar, definindo se a 
palavra PONTO serA usada no singular 
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on no plural. A linha 1060, por sua vez, 
mostra o placar para o jogador. 

No micro TRS-Color e no MSX, as 
linhas 1100 a 1150 constituem coman- 
dos extras de alta resolucao para o de- 
senho do tabuleiro. 



A VEZ DO JOGADOR 



2000 PRINT AT 14,0; "FACA MOVI 
MENTO CLINHA.COLUNA)": INPUT X, 
Y 

2005 IF X-0 THEN LET EG-1: RET 
URN 

2006 IF X«9 THEN LET CP-2 : RET 
URN 

2010 IF X<1 OR X>8 OR Y<1 OR Y> 

8 THEN GOTO 2000 

2020 IF B(X,Y)-0 THEN GOTO 207 



2040 PRINT AT 17,0;" VOCE NAO P 

ODE TR PARA (IMA CASA OCUPADA ! " 

: FOR F-l TO 500: NEXT F 

20S0 PR] NT AT 17,0;" 

: GOTO 2000 

2070 LET NF=0: FOR F=] TO 8 : LE 
T CF=0: IF X+D(F,1)=0 OR X+D(F, 
1) =9 THEN GOTO 2075 

2071 IF y+D{F.2)-0 OR Y+DCF.Z)* 

9 THEN GOTO 2075 

2072 IF B(X+D(F,1) .Y+D<F.Z) >=2 



THEN LET CF=l : 
7075 LET C(F)=0: 
LET C(F)=F 
2 080 NEXT F 
209Q STOP 



LET NF=1 
IF CF=1 THEN 



HIE] 



2000 VTAB (15) : INPUT "QUAL i 

SUA JOGADA (LINHA, COLUNA) ? "; 
X,Y 

THEN EG = 1 : RET 



2005 
URN 
2006 
URN 
2010 
< 1 
2020 
2040 



IF X 



IF X » 9 THEN CP-2: RET 



OR (Y 



IF (X < 1 OR X > 8} 
OR ¥ > 8) THEN 2000 
IF B{X,Y) = THEN 2070 
VTAB (17) : PRINT "ESTE LU 
GAR JA' ESTA" OCUPADO" : 

TO 1500: NEXT 
2050 VTAB (17) : PRINT 



FOR F 



00 

2070 HE 
= 0: 
(F,l) 



IF 



: FOR F 
X + D(F,I) 
THEN 2075 

2071 IF Y + D(F,2) - 
D(F,2) -< THEN 2075 

2072 IF B(X + D(F.l) 
)) - 2 THEN CF = 1 :NF 
2075 C(F) = 
(F) - F 
2080 NEXT F 
2090 STOP 



" : GOTO 20 

1 TO 8:CF 
9 OR X + D 

9 OR Y + 

,Y + D(F,2 

.1 
IF CF = 1 THEN C 



ffto 



a 



2000 LINE(0, 182)- (255,191) ,1,BF 
: LINE (112. 150) -(144, 180) ,1,BF:D 
RAW"C15;BM10,182" : AS* "SUA JOGAD 
A LINHA E COLUNA" :GOSUB9300 

2001 IS=INKEYS:IFI5<*0" OB IS>" 
9"THEN2001 

2002 X-VAL(IS) :DRAW"BM114,154 ;S 
16;C15"+NUS(X) 

2003 IS=INKEYS:IFIS<"0" OR IS>" 
9"THEN2003 

2004 Y = VAL(I$) :DRAWNUS(Y)+"S8" 

2005 IFX=0 THEN EG=1:RETURN 

2006 IFX=9 THEN CP=2 : RETURN 
2010 TFX<1 OR X>8 OR Y<1 OR Y>8 

THEN 2000 
2020 IF B(X,¥)=0 THEN 2070 
2040 LINE(0.182)-C255.191) ,1 ,BF 
: DRAW "S8C15BM50,1B2":A$= "QUADRA 
DO OCUPADO" : GOSUB9300 . FORF = 1 T09 
00:NEXTF 
2050 GOTO 2000 

2070 NF=0: FORF= 1T08 : CF=0 : IFX+D( 
F,1)=0 OR X+D(F,1)=9 THEN 2075 

2071 IFY+D(F,2)-0 OR Y+D(F,2)=9 
THEN 2075 

2072 IF B(X+D(F,1) ,Y+D(F.2) )=2 
THEN CF=J :NF=1 

2075 C(F)^0:IFCF=l THEN C(F)-F 
2080 NEXTF 



2000 COLOR 1:LINE(0,182)-(25S,1 
91) , PSET.BF: LINE (118, 150)- (150, 
180) , PSET.BF :DRAW"C3;BM0, 182" :A 
$-"PARA ONDE LINHA E COLUNA" 
:GOSUB 9300: SOUND 100,1 



2001 IS-INKEY3 
"9" THEN 2001 

2002 X-VALCIS) 
16;C4"+NU${X) 

2003 I$»INKEY$ 
"9" THEN 2003 

2004 Y-VAL(IS) 



IF IS<*0" OR IS> 



DRAU"BM118,150;S 



IF IS<"0" OR I$> 

DRAW NUS<Y)+"S8" 
: RETURN 



2005 IF X-0 THEN EG-1 

2006 IF X=9 THEN CP-2: RETURN 
2010 IF X<1 OR X>8 OR Y<1 OR Y> 
8 THEN 2000 

2020 IF B(X,Y)-0 THEN 2070 
2940 COLOR 1:LINE (0 , 182) - ( 255 , 
191) , PSET.BF : DRAW* S8C4BMQ , 182" : 
AS-'VOCE NAO PODE IR PARA AI" :G 
OSUB 9300: FOR F-l TO 900: NEXT F 
2050 GOTO 2000 

2070 NF=0:FOR F»l TO 8;CF-0:IF 
X+D(F,1)-Q OR X+D(F,l>-9 THEN 2 
075 




2071 IF y+D(F,2}-0 OR ¥+D(F,2)- 
9 THEN 2075 

2072 IF BtX+D(F.l) ,Y+D{F.2))-2 
THEN CF-1:NF-1 

2075 CfF)-0:IF CF-1 THEN C{F)-F 
2080 NEXT F 

Sua jogada esta entre as linhas 2000 
e 2270, mas, por enquanto, o programa 
vai somente at£ a linha 2090 (2080, no 
MSX e no TRS-Color). 

O programs obtem as coordenadas X 
e Y do jogador na linha 2000. A linha 
2005 verifica se X e zero; se for, o indi- 
cador de fim de jogo e setado. 

A linha 2010 verifica se houve urn 
eventual erro de entrada das coordena- 
das do jogador; se houve, volta para a 
linha 2000. O programa checa, entao, 
o quadrado eseolhido, para se certificar 
de que esta vazio, e salta para a linha 
2070. Caso o quadrado ja esteja ocupa- 
do por outra peca, a linha 2040 impri- 
me uma mensagem de erro. 

As linhas finais desta parte do pro- 
grama (2070 a 2075) verificam se a peca 
em questao esta ou nao proxima de uma 
das pecas do computador. 



ROTINA PARA DESENHAR LETRAS 



Para que possamos escrever na tela 
de alta resolucao do MSX e do TRS- 
Color, precisaremos acrescemar esta ro- 
tina. Ela e bem semelhante a que foi des- 
crita no artigo da pagina 232. 

El 

9100 DATA BR4.ND4R3D2NL3ND2BE2, 

ND4R3DGNL2FDNLJdU4BR2,NR3D4R3BU 

4BR2.ND4R2FD2GL2BE4BR.NR3D2NR2D 

2R3BU4BR2 

9110 DATA NR3D2NR2D2BE48R.NR3D4 

R3U2LBE2BR.D4BR3U2NL3U2BR2.ND4B 

R2 , BD4REU3L2R3BR2 , D2ND2NF 2E2BR2 

9120 DATA D4R3BU4BR2.ND4FREND4B 

R2 , ND4F3DU4BR2 , NR3D4R3U4BR2 , ND4 

R3D2NL3BE2.NR3D4R3NHU4BR2 

9130 DATA ND4R3D2L2F2BU4BR2.BD4 

R3U2L3U2R3BR2 , RND4RBR2 , D4R2U4BR 

2,D3FEU3BR2,D4EFU4BR2 

9140 DATA DF2DBL2UE2UBR2.DFMD2E 

UBR2.R3G3DR3BU4BR2 

9150 DATA NR2D4R2U4BR2,BDEND4BR 

2.R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2 



R2U4BR2 , D2R2D2U4BR2 ,NR2D2R2D2L2 

BE4 .D4R2U2L2BE2BR2 , R2ND4BR2.NR2 

D4R2U2NL2U2BR2 .NR2D2R2D2U4BR2 

9200 DIM LES(26) 

9210 FOR K-Q TO 26:READ LE5(K): 

NEXT 

9220 FOR K-0 TO 9:READ HUS(K):U 

EXT 

9230 RETURN 

9300 FOR K-l TO LEN(AS) 

9310 BS-MIDS(AS.K.l) 

9320 IF BS>-"0" AND BS<-"9" THE 

N DRAW NUS(VAHBS) ) .GOTO 9350 

9330 IF BS-" " THEN N-0 ELSE N- 

ASC(BS)-64 

9340 DRAW LE3 (N) 

9350 NEXT 

9360 RETURN 



fffi 



BEAD NUS(K) :N 




9100 DATA BR4.ND4R3D2HL3ND2BE2. 

ND4R3DGNL2FDNL3BU4BR2,NR1D4R3BU 

4BR2,ND4R2FD2GI.2BE4BR.NR3D2NR2D 

2R.1BU4BR2 

9110 DATA NR3D2NR2D2BE4BR,NR3D4 

R3U2LRE7BR,D4BR3U2NL3U2BR2,ND4B 

R2.BD4REU1L2H JBR2.D2ND2NF2EZBR2 

9120 DATA D4R3BU4BH? , ND4FREND4B 

R2,ND4F3DU4BR2,NR3D4R3U<iBR2.ND4 

R3D2NL3BE2.NR3D4R3NHU4BR2 

9130 DATA ND4R3D2L2F2BU<)BR2,Brj4 

R3L(2L3U2R3RR2.RND4RBR2.D4R2tJ4BR 

2 , D1FEU3BR2 , D4EFU4BR2 

9140 DATA DF2DBL2IJE?URR2,DFND2E 

UBR2 .R3G3DR3BU4BR2 

9150 DATA NR2D4R2U4BR2.BDEND4BR 

2.R2D2L2D2R2BU4BR2.NR2BD2NR2BD2 

R2U4BR2 , D2R2D2U4RR2 ,NR?D2R2D2L2 

BE4,D4R2U2L2BE2BR2,H2ND4BR2.NR2 

D4R2U2NL2U2BR2 , NR2D2H2D2114BR2 

9200 DIM LE$ (27) 

9210 FOR K=0 TO 26:READ LES (K) : 

NEXT 

9220 FOR K=0 TO 

EXT 

92 30 RETURN 

FOR K=l TO LEN(A3) 
9310 B$=MTDStAS.K. 

" AND BS< = 
N DRAW NU$ (VAL(BS) ) :GOTO 9350 
9330 IF BS=" " THEN N=0 ELSE M= 
ASCtBS)-64 
9340 DRAW LE${N) 
9350 NEXT 
9360 RETURN 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 


_ 


■ d r 


r^l 


f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



PROGRAMACAO BASIC 

Probabilidade, frequSncia e acaso. Programa lancador de moedas. 
O triclngulo de Pascal. Distribuigao de frequSncia. 

CODIGO DE MAQUINA 

Ajude Willie em sua incans^vel busca do lanche roubado. 
Aprenda ainda a chamar as sub-rotinas da memdria ROM. 

PROGRAMACAO BASIC 

Trajetoria de proj^teis. Efeitos de diferentes campos 
gravitacionais. Simulacao de parabolas. 



= 



ot P*° G 



progw^^ 



A0** 9C 



rw* *"* 




